home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 June / EnigmA AMIGA RUN 19 (1997)(G.R. Edizioni)(IT)[!][issue 1997-06][EAR-CD III].iso / recent1 / f1gp-ed_upd331.lha / F1GP-Ed_331to333 / Patch_F1GP-Ed < prev    next >
Text File  |  1997-05-18  |  5KB  |  224 lines
  1. ; $VER: Patch_F1GP-Ed 2.1 (4.5.97)
  2. ;   by Oliver Roberts (oliver@poboxes.com)
  3. ;
  4. ; French translation by Daniel Grenson
  5.  
  6. ;************
  7. ; PARAMETERS
  8. ;************
  9.  
  10. (set #newver "3.33")
  11. (set #oldver "3.31")
  12. (set #oldvernum 3)
  13. (set #oldrevnum 31)
  14.  
  15. ;*************
  16. ; LOCALE INIT
  17. ;*************
  18.  
  19. (if (= (exists "Env:Language") 1)
  20.     (set @language (getenv "Language"))
  21. )
  22.  
  23. ;*****************
  24. ; ENGLISH STRINGS
  25. ;*****************
  26.  
  27. (set #str-createnew "Creating new %s file in T:")
  28. (set #str-copynew "Copying updated %s file to destination")
  29. (set #str-deletetmp "Deleting temporary file")
  30. (set #str-welcome (cat
  31.     "This Installer script will attempt to patch an existing "
  32.     "installation of F1GP-Ed %s.  The F1GP-Ed, F1GP-Ed.guide, "
  33.     "History.txt & 1997.f1gp files will be transformed into their "
  34.     "v%s counterparts.\n\n"
  35.     "Make sure you have booted from your hard drive and "
  36.     "have already successfully installed F1GP-Ed %s, before "
  37.     "continuing with this installation!\n\n"
  38.     "Do you want to continue?")
  39. )
  40. (set #str-where "Where have you installed F1GP-Ed?")
  41. (set #str-failed (cat
  42.     "Could not find the \"F1GP-Ed\" executable in this drawer - "
  43.     "make sure you have selected the correct drawer.\n\n\n"
  44.     "Patching Failed!")
  45. )
  46. (set #str-attemptpatch "Attempting to patch F1GP-Ed %ld.%ld")
  47. (set #str-wrongver "Found F1GP-Ed %ld.%ld - unable to patch this version.")
  48. (set #str-installnew "Installing new files")
  49. (set #str-updatecats "Updating catalogs")
  50. (set #str-theend (cat
  51.     "\nEnjoy using F1GP-Ed ;-)\n\n"
  52.     "The latest version of F1GP-Ed is always available from the "
  53.         "F1GP-Ed Web Site\n\n"
  54.         "   %s\n\n"
  55.     "%s\n")
  56. )
  57.  
  58. ;****************
  59. ; FRENCH STRINGS
  60. ;****************
  61.  
  62. (if (= @language "français") (
  63.  
  64.  (set #str-createnew "Creating new %s file in T:")
  65.  (set #str-copynew "Copie des mises à jour du fichier %s vers le fichier de destination")
  66.  (set #str-deletetmp "Effacement du fichier temporaire")
  67.  (set #str-welcome (cat
  68.     "Ce script d'installation essayera de 'patcher' une "
  69.         "installation existante de F1GP-Ed %s.  Les fichiers F1GP-Ed, "
  70.     "F1GP-Ed.guide, History.txt & 1997.f1gp seront transformés en leurs "
  71.     "v%s équivalents.\n\n"
  72.     "Assurez-vous d'avoir lancé votre ordinateur au départ de votre "
  73.     "disque dur et que vous avez déja installé avec succès F1GP-Ed %s, "
  74.     "avant de poursuivre cette installation!\n\n"
  75.     "Voulez-vous continuer?")
  76.  )
  77.  (set #str-where "Où avez-vous installé F1GP-Ed?")
  78.  (set #str-failed (cat
  79.     "Impossible de trouver le programme exécutable \"F1GP-Ed\" dans ce "
  80.     "tiroir - assurez-vous d'avoir sélectionné le tiroir correct.\n\n\n"
  81.     "Echec de l'opération de patch!")
  82.  )
  83.  (set #str-attemptpatch "Essai de 'patch' de F1GP-Ed %ld.%ld")
  84.  (set #str-wrongver "Trouvé F1GP-Ed %ld.%ld - impossible de patcher cette version.")
  85.  (set #str-installnew "Installation des nouveaux fichiers")
  86.  (set #str-updatecats "Mise à jour des catalogues")
  87.  (set #str-theend (cat
  88.     "\nAmusez-vous en utilisant F1GP-Ed !\n\n"
  89.     "La dernière version de F1GP-Ed est toujours disponible sur "
  90.         "le site Web F1GP-Ed\n\n"
  91.         "   %s\n\n"
  92.     "%s\n")
  93.  )
  94. ))
  95.  
  96. ;************
  97. ; PROCEDURES
  98. ;************
  99.  
  100. (procedure P_Patch
  101.     (if (exists (tackon (tackon @default-dest #pdir) #pfile))
  102.         (
  103.             (working (#str-createnew #pfile))
  104.             (run ("C/spatch -p%s.pch -oT:%s.new \"%s\"" #pfile #pfile (tackon (tackon @default-dest #pdir) #pfile)))
  105.             (if (exists ("T:%s.new" #pfile))
  106.                 (
  107.                     (copyfiles
  108.                         (prompt (#str-copynew #pfile))
  109.                         (source ("T:%s.new" #pfile))
  110.                         (dest (tackon @default-dest #pdir))
  111.                         (newname #pfile)
  112.                     )
  113.                     (delete ("T:%s.new" #pfile) (prompt #str-deletetmp))
  114.                 )
  115.             )
  116.         )
  117.     )
  118. )
  119.  
  120. ;*******
  121. ; START
  122. ;*******
  123.  
  124. (if (NOT (askbool
  125.         (prompt (#str-welcome #oldver #newver #oldver))
  126.         (default 0)
  127.         (help "")
  128.     ))
  129.     (exit (quiet))
  130. )
  131.       
  132. (welcome "")
  133.  
  134. (complete 0)
  135.  
  136. (set #destdir
  137.     (askdir
  138.         (prompt #str-where)
  139.         (help @askdir-help)
  140.         (default @default-dest)
  141.     )
  142. )
  143.  
  144. (set @default-dest #destdir)
  145.  
  146. (if (<> 1 (exists (tackon @default-dest "F1GP-Ed"))) (
  147.     (message #str-failed)
  148.     (exit (quiet)))
  149. )
  150.  
  151. ;*****************
  152. ; PATCH OLD FILES
  153. ;*****************
  154.  
  155. (set #vernum (getversion (tackon @default-dest "F1GP-Ed")))
  156. (set #ver (/ #vernum 65536))
  157. (set #rev (- #vernum (* #ver 65536)))
  158.  
  159. (if (AND (= #ver #oldvernum) (= #rev #oldrevnum))
  160.     (
  161.         (message (#str-attemptpatch #ver #rev))
  162.         (set #pdir "")
  163.                 (set #pfile "F1GP-Ed")
  164.         (P_Patch)
  165.         (complete 33)
  166.         (set #pdir "Docs/")
  167.                 (set #pfile "F1GP-Ed_english.guide")
  168.         (P_Patch)
  169.                 (set #pfile "F1GP-Ed_deutsch.guide")
  170.         (P_Patch)
  171.         (complete 66)
  172.         (set #pdir "")
  173.                 (set #pfile "History.txt")
  174.         (P_Patch)
  175.     )
  176.     (
  177.         (message (#str-wrongver #ver #rev))
  178.                 (exit (quiet))
  179.     )
  180. )
  181.  
  182. (complete 90)
  183.  
  184. ;****************
  185. ; COPY NEW FILES
  186. ;****************
  187.  
  188. (copyfiles
  189.     (prompt #str-installnew)
  190.     (source "")
  191.     (choices "1997.f1gp" "1997.f1gp.events" "Reg_Form")
  192.     (dest @default-dest)
  193.     (help @copyfiles-help)
  194.     (confirm)
  195.     (infos)
  196. )
  197.  
  198. ;*****************
  199. ; UPDATE CATALOGS
  200. ;*****************
  201.  
  202. ;(set #newcatalog "Catalogs/italiano/F1GP-Ed.catalog")
  203.  
  204. ;(if (AND (exists #newcatalog) (exists (tackon @default-dest #newcatalog)))
  205. ;    (copyfiles
  206. ;        (prompt #str-updatecats)
  207. ;        (source #newcatalog)
  208. ;        (dest (tackon @default-dest "Catalogs/italiano"))
  209. ;        (help @copyfiles-help)
  210. ;        (confirm)
  211. ;    )
  212. ;)
  213.  
  214. ;*********
  215. ; THE END
  216. ;*********
  217.  
  218. (complete 100)
  219.  
  220. (exit (#str-theend
  221.         "http://www.nanunanu.org/~oliver/F1GP-Ed/"
  222.     "Oliver Roberts (Oliver@POBoxes.com)")
  223. )
  224.